﻿Public Class Ecostos
    Public F1 As String
    Public F2 As String
    Public F3 As String
    Public F4 As String
    Public F5 As String
    Public F6 As String
    Public F7 As String
    Public F8 As String
    Public F9 As String
    Public F10 As String
    Public F11 As String
    Public F12 As String
    Public F13 As String
    Public F14 As String
    Public F15 As String
    Public F16 As String
    Public F17 As String
    Public F18 As String
    Public F19 As String
    Public F20 As String
    Public F21 As String
    Public F22 As String
    Public F23 As String
    Public F24 As String
    Public F25 As String
    Public F26 As String
    Public F27 As String
    Public F28 As String
    Public F29 As String
    Public F30 As String
    Public F31 As String
    Public F32 As String

    Public Sub New()

        F1 = ""
        F2 = ""
        F3 = ""
        F4 = ""
        F5 = ""
        F6 = ""
        F7 = ""
        F8 = ""
        F9 = ""
        F10 = ""
        F11 = ""
        F12 = ""
        F13 = ""
        F14 = ""
        F15 = ""
        F16 = ""
        F17 = ""
        F18 = ""
        F19 = ""
        F20 = ""
        F21 = ""
        F22 = ""
        F23 = ""
        F24 = ""
        F25 = ""
        F26 = ""
        F27 = ""
        F28 = ""
        F29 = ""
        F30 = ""
        F31 = ""
        F32 = ""
    End Sub

    Public Property F1R() As String
        Get
            Return F1
        End Get
        Set(ByVal value As String)
            F1 = value
        End Set
    End Property

    Public Property F2R() As String
        Get
            Return F2
        End Get
        Set(ByVal value As String)
            F2 = value
        End Set
    End Property

    Public Property F3R() As String
        Get
            Return F3
        End Get
        Set(ByVal value As String)
            F3 = value
        End Set
    End Property

    Public Property F4R() As String
        Get
            Return F4
        End Get
        Set(ByVal value As String)
            F4 = value
        End Set
    End Property

    Public Property F5R() As String
        Get
            Return F5
        End Get
        Set(ByVal value As String)
            F5 = value
        End Set
    End Property

    Public Property F6R() As String
        Get
            Return F6
        End Get
        Set(ByVal value As String)
            F6 = value
        End Set
    End Property

    Public Property F7R() As String
        Get
            Return F7
        End Get
        Set(ByVal value As String)
            F7 = value
        End Set
    End Property

    Public Property F8R() As String
        Get
            Return F8
        End Get
        Set(ByVal value As String)
            F8 = value
        End Set
    End Property

    Public Property F9R() As String
        Get
            Return F9
        End Get
        Set(ByVal value As String)
            F9 = value
        End Set
    End Property

    Public Property F10R() As String
        Get
            Return F10
        End Get
        Set(ByVal value As String)
            F10 = value
        End Set
    End Property

    Public Property F11R() As String
        Get
            Return F11
        End Get
        Set(ByVal value As String)
            F11 = value
        End Set
    End Property

    Public Property F12R() As String
        Get
            Return F12
        End Get
        Set(ByVal value As String)
            F12 = value
        End Set
    End Property

    Public Property F13R() As String
        Get
            Return F13
        End Get
        Set(ByVal value As String)
            F13 = value
        End Set
    End Property

    Public Property F14R() As String
        Get
            Return F14
        End Get
        Set(ByVal value As String)
            F14 = value
        End Set
    End Property

    Public Property F15R() As String
        Get
            Return F15
        End Get
        Set(ByVal value As String)
            F15 = value
        End Set
    End Property

    Public Property F16R() As String
        Get
            Return F16
        End Get
        Set(ByVal value As String)
            F16 = value
        End Set
    End Property

    Public Property F17R() As String
        Get
            Return F17
        End Get
        Set(ByVal value As String)
            F17 = value
        End Set
    End Property

    Public Property F18R() As String
        Get
            Return F18
        End Get
        Set(ByVal value As String)
            F18 = value
        End Set
    End Property

    Public Property F19R() As String
        Get
            Return F19
        End Get
        Set(ByVal value As String)
            F19 = value
        End Set
    End Property

    Public Property F20R() As String
        Get
            Return F20
        End Get
        Set(ByVal value As String)
            F20 = value
        End Set
    End Property

    Public Property F21R() As String
        Get
            Return F21
        End Get
        Set(ByVal value As String)
            F21 = value
        End Set
    End Property

    Public Property F22R() As String
        Get
            Return F22
        End Get
        Set(ByVal value As String)
            F22 = value
        End Set
    End Property

    Public Property F23R() As String
        Get
            Return F23
        End Get
        Set(ByVal value As String)
            F23 = value
        End Set
    End Property

    Public Property F24R() As String
        Get
            Return F24
        End Get
        Set(ByVal value As String)
            F24 = value
        End Set
    End Property

    Public Property F25R() As String
        Get
            Return F25
        End Get
        Set(ByVal value As String)
            F25 = value
        End Set
    End Property

    Public Property F26R() As String
        Get
            Return F26
        End Get
        Set(ByVal value As String)
            F26 = value
        End Set
    End Property

    Public Property F27R() As String
        Get
            Return F27
        End Get
        Set(ByVal value As String)
            F27 = value
        End Set
    End Property

    Public Property F28R() As String
        Get
            Return F28
        End Get
        Set(ByVal value As String)
            F28 = value
        End Set
    End Property

    Public Property F29R() As String
        Get
            Return F29
        End Get
        Set(ByVal value As String)
            F29 = value
        End Set
    End Property

    Public Property F30R() As String
        Get
            Return F30
        End Get
        Set(ByVal value As String)
            F30 = value
        End Set
    End Property

    Public Property F31R() As String
        Get
            Return F31
        End Get
        Set(ByVal value As String)
            F31 = value
        End Set
    End Property

    Public Property F32R() As String
        Get
            Return F32
        End Get
        Set(ByVal value As String)
            F32 = value
        End Set
    End Property

End Class
